{******************************Version: MPL 1.1*********************************
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* Initial Developer : Fajar Khairil
*
* Portions created by the Initial Developer are Copyright (C) 2010 - 2011
* the Initial Developer. All Rights Reserved.
*
********************************************************************************
* This File is Part of HdFramework OPF Library
* Copyright (C) 2010 - 2011 HdFramework Developer Team
*
* Unit : HadeBaseObject
* Description : -
* Author: - Fajar Khairil
*		  - 
*******************************************************************************}
unit hadebaseobject;

{$mode objfpc}{$H+}

interface

uses
  Classes,
  SysUtils;

const
  HADE_FRAMEWORK_VERSION = '0.0.0.1';
  COMMA = ',';
type

  { THadeBaseObject }

  THadeBaseObject = class(TInterfacedObject)
  private
    FTag: ptrUint;
  public
    class function Version: string;
    property Tag:ptrUint read FTag write FTag;
  end;

implementation

{ THadeBaseObject }

class function THadeBaseObject.Version: string;
begin
  Result := HADE_FRAMEWORK_VERSION;
end;

end.

